inherited FrmCad_Implantacao: TFrmCad_Implantacao
  Left = 87
  Top = 52
  Caption = 'Controle de Implanta'#231#227'o'
  ClientHeight = 482
  ClientWidth = 657
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Align = alNone
  end
  inherited Panel2: TPanel
    Top = 0
    Width = 657
    Height = 415
    Enabled = True
    object DBGrid1: TDBGrid
      Left = 3
      Top = 3
      Width = 651
      Height = 409
      Align = alClient
      DataSource = DsImplantacao
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
      OnKeyDown = DBGrid1KeyDown
      Columns = <
        item
          Expanded = False
          FieldName = 'impl_descricaoMenu'
          ReadOnly = True
          Width = 310
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'impl_data'
          Width = 93
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'impl_usuario'
          Width = 213
          Visible = True
        end>
    end
  end
  inherited Panel4: TPanel
    Top = 415
    Width = 657
    inherited btnGravar: TFlatButton
      Left = 11
      OnClick = btnGravarClick
    end
    inherited BtnEliminar: TFlatButton
      Left = -94
      Top = 20
      Visible = False
    end
    inherited btnCancelar: TFlatButton
      Left = 185
    end
    inherited btnlistagem: TFlatButton
      Left = 346
      OnClick = btnlistagemClick
    end
    inherited btnFechar: TFlatButton
      Left = 534
    end
  end
  inherited BS: TStatusBar
    Top = 463
    Width = 657
    Panels = <
      item
        Width = 430
      end
      item
        Width = 100
      end
      item
        Alignment = taCenter
        Width = 65
      end
      item
        Alignment = taCenter
        Width = 65
      end>
  end
  object CdsImplantacao: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 372
    Top = 56
    object CdsImplantacaoimpl_programa: TStringField
      DisplayLabel = 'Programa'
      FieldName = 'impl_programa'
      Size = 40
    end
    object CdsImplantacaoimpl_descricaoMenu: TStringField
      DisplayLabel = 'Descri'#231#227'o Menu'
      FieldName = 'impl_descricaoMenu'
      Size = 50
    end
    object CdsImplantacaoimpl_data: TDateField
      DisplayLabel = 'Data'
      FieldName = 'impl_data'
    end
    object CdsImplantacaoimpl_usuario: TStringField
      DisplayLabel = 'Usu'#225'rio'
      FieldName = 'impl_usuario'
      Size = 30
    end
    object CdsImplantacaoimpl_identificador: TStringField
      FieldName = 'impl_identificador'
      Size = 1
    end
  end
  object DsImplantacao: TDataSource
    DataSet = CdsImplantacao
    Left = 344
    Top = 56
  end
end
